home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1463.dms / var1463.adf / BBBBS72.lha / rexx / bbsSLAVE.rexx < prev    next >
OS/2 REXX Batch file  |  1993-12-17  |  336b  |  19 lines
  1. /* bbsSLAVE.rexx 6.6 (17.12.93) */
  2.  
  3. ARG rate .
  4. CALL OPENPORT('BBS_SLAVE')
  5. IF DATATYPE(rate,'W') THEN
  6.   DO
  7.     CALL SETCLIP('BBS_SLAVE_RATE',rate)
  8.     ADDRESS BBBBS 'START'
  9.     t=WAITPKT('BBS_SLAVE')
  10.     DO i=1
  11.       p=GETPKT('BBS_SLAVE')
  12.       IF p='0000 0000'x THEN LEAVE i
  13.       t=REPLY(p,0)
  14.     END
  15.   END
  16. EXIT 0
  17.  
  18. /* bbsSLAVE.rexx */
  19.